home *** CD-ROM | disk | FTP | other *** search
/ iBrowse Update Disc / iBrowse Update Disc.iso / distrib / boot / !Boot / Resources / !Internet / !Run < prev    next >
Text File  |  1998-02-05  |  3KB  |  65 lines
  1. |================================================================|
  2. | Run file for !Internet V5.00 (21st May 1996)                   |
  3. |                                                                |
  4. | Copyright (C) Acorn Computers Ltd., 1996                       |
  5. |================================================================|
  6.  
  7. IF "<Inet$Path>" = "" THEN Set Run$Path <Run$Path>,<Obey$Dir>.bin.
  8. Set Inet$Path <Obey$Dir>.
  9. Set InetDBase$Path <Obey$Dir>.files.
  10. IconSprites <Obey$Dir>.!Sprites
  11. If "<Inet$Started>" = "Yes" THEN Obey
  12.  
  13. Unset Inet$Error
  14.  
  15. RMEnsure UtilityModule 3.10 Error This Internet application requires RISC OS 3 version 3.10 or later to run
  16. Run Inet:utils.CheckMem
  17. Set System$Path_Message System resources not found. Please run !System before !Internet.
  18. IF "<BootResources$Path>" = "" THEN Set BootResources$Path <Boot$Dir>.Resources.
  19. IF "<System$Path>" = "" THEN IfThere BootResources:!System Then /BootResources:!System
  20.  
  21. Set Alias$RMIfThere SetEval Test$Eval 1|MRMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval THEN %%0 %%1|MUnset Test$Eval
  22. Set Alias$CheckError IF "|<Inet$Error>" <> "" THEN Error |<Inet$Error>
  23.  
  24. RMIfThere RMKill Net
  25. RMIfThere RMKill NetG
  26. RMIfThere RMKill NetI
  27. RMIfThere RMKill ShareFS
  28. RMIfThere RMKill Freeway
  29.  
  30. | An extant Mbuf Manager cannot usually be killed
  31. SetEval Inet$BadMbufManager 0
  32. RMEnsure MbufManager 0.17 SetEval Inet$BadMbufManager 1
  33. IF Inet$BadMbufManager THEN RMEnsure MbufManager 0.00 SetEval Inet$BadMbufManager 0
  34. If Inet$BadMbufManager THEN /Inet:bin.X Unplug MbufManager
  35. If Inet$BadMbufManager THEN Error Please shutdown the computer, then restart it
  36. Unset Inet$BadMbufManager
  37.  
  38. RMEnsure AUNMsgs     0.07 RMLoad System:Modules.Network.AUNMsgs
  39. RMEnsure AUNMsgs     0.07 echo Warning - AUNMsgs module not loaded  
  40. RMEnsure Internet    5.02 RMLoad System:Modules.Network.Internet
  41. RMENsure Internet    5.02 Error Internet module not found or out of date
  42. RMEnsure MbufManager 0.17 RMLoad System:Modules.Network.MManager
  43. RMEnsure MbufManager 0.17 Error MbufManager not found or out of date
  44.  
  45. SetEval Inet$KickFiler 0
  46.  
  47. IfThere Choices:Internet.Startup Then Run Choices:Internet.Startup Else Error Your !Internet application has not yet been configured. Please use InetSetup to configure it.
  48. IfThere Choices:Internet.User Then Run Choices:Internet.User
  49.  
  50. RMIfThere RMReInit NFS
  51.  
  52. Sysctl -ew net.inet.udp.checksum=1
  53. CheckError
  54.  
  55. IF "<Inet$IsGateway>" LEFT 1 = "Y" THEN InetGateway on
  56. IF "<Inet$RouteDOptions>" <> "" THEN RMLoad System:Modules.Network.RouteD
  57.  
  58. If "<Wimp$State>" = "desktop" AND Inet$KickFiler THEN Filer_Run Inet:utils.NewFiler
  59.  
  60. Unset Inet$KickFiler
  61. Unset Alias$RMIfThere
  62. Unset Alias$CheckError
  63.  
  64. Set Inet$Started Yes
  65.